home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / rtcl.zip / TESTUNIT.PAS < prev   
Pascal/Delphi Source File  |  1996-01-11  |  6KB  |  200 lines
  1. {  Tomasz Stanczak                                                   }
  2. {  Hardenbergstr. 8                                                  }
  3. {  31275 Lehrte                                                      }
  4. {  Germany                                                           }
  5. {                                                                    }
  6. {  CIS ID: 100735,3273                                               }
  7.  
  8. unit TestUnit;
  9.  
  10. interface
  11.  
  12. uses
  13.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  14.   Forms, Dialogs, StdCtrls, Menus, RtChkLst, ExtCtrls;
  15.  
  16. type
  17.   TForm1 = class(TForm)
  18.     Memo1: TMemo;
  19.     ListBox1: TListBox;
  20.     Button2: TButton;
  21.     Button3: TButton;
  22.     Button4: TButton;
  23.     RtCheckList1: TRtCheckList;
  24.     Label1: TLabel;
  25.     Label2: TLabel;
  26.     RtCheckList2: TRtCheckList;
  27.     RtCheckList3: TRtCheckList;
  28.     Button1: TButton;
  29.     RadioGroup1: TRadioGroup;
  30.     RadioGroup2: TRadioGroup;
  31.     RadioGroup4: TRadioGroup;
  32.     RadioGroup3: TRadioGroup;
  33.     CheckBox1: TCheckBox;
  34.     Bevel1: TBevel;
  35.     procedure Button3Click(Sender: TObject);
  36.     procedure Button4Click(Sender: TObject);
  37.     procedure Button1Click(Sender: TObject);
  38.     procedure Button2Click(Sender: TObject);
  39.     procedure RtCheckList1Click(Sender: TObject);
  40.     procedure RtCheckList2Click(Sender: TObject);
  41.     procedure RtCheckList3Click(Sender: TObject);
  42.     procedure RadioGroup1Click(Sender: TObject);
  43.     procedure RtCheckList1Check(Sender: TObject; Index: Integer;
  44.       var Value: Boolean);
  45.     procedure RtCheckList3DrawItem(Sender: TObject; Index: Integer;
  46.       Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);
  47.     procedure FormCreate(Sender: TObject);
  48.     procedure CheckBox1Click(Sender: TObject);
  49.     procedure RadioGroup2Click(Sender: TObject);
  50.     procedure RadioGroup4Click(Sender: TObject);
  51.     procedure RadioGroup3Click(Sender: TObject);
  52.   private
  53.     { Private-Deklarationen }
  54.   public
  55.     { Public-Deklarationen }
  56.   end;
  57.  
  58. var
  59.   Form1: TForm1;
  60.  
  61. implementation
  62.  
  63. {$R *.DFM}
  64.  
  65. procedure TForm1.Button3Click(Sender: TObject);
  66. var
  67.    i: integer;
  68. begin
  69.    for i:=0 to Memo1.Lines.Count-1 do
  70.    begin
  71.       if RtCheckList1.Items.IndexOf(Memo1.Lines[i])<0 then
  72.          RtCheckList1.Items.Add(Memo1.Lines[i]);
  73.       if RtCheckList2.Items.IndexOf(Memo1.Lines[i])<0 then
  74.          RtCheckList2.Items.Add(Memo1.Lines[i]);
  75.       if RtCheckList3.Items.IndexOf(Memo1.Lines[i])<0 then
  76.          RtCheckList3.Items.Add(Memo1.Lines[i]);
  77.    end;
  78. end;
  79.  
  80. procedure TForm1.Button4Click(Sender: TObject);
  81. var
  82.    i,n: integer;
  83. begin
  84.    for i:=0 to Memo1.Lines.Count-1 do
  85.    begin
  86.       n := RtCheckList1.Items.IndexOf(Memo1.Lines[i]);
  87.       if n>=0 then
  88.          RtCheckList1.Items.Delete(n);
  89.       n := RtCheckList2.Items.IndexOf(Memo1.Lines[i]);
  90.       if n>=0 then
  91.          RtCheckList2.Items.Delete(n);
  92.       n := RtCheckList3.Items.IndexOf(Memo1.Lines[i]);
  93.       if n>=0 then
  94.          RtCheckList3.Items.Delete(n);
  95.    end;
  96. end;
  97.  
  98. procedure TForm1.Button1Click(Sender: TObject);
  99. var
  100.    i: integer;
  101. begin
  102.    for i:=0 to Memo1.Lines.Count-1 do
  103.    begin
  104.       RtCheckList1.Value[Memo1.Lines[i]] := True;
  105.       RtCheckList2.Value[Memo1.Lines[i]] := True;
  106.       RtCheckList3.Value[Memo1.Lines[i]] := True;
  107.    end;
  108. end;
  109.  
  110. procedure TForm1.Button2Click(Sender: TObject);
  111. var
  112.    i: integer;
  113. begin
  114.    for i:=0 to Memo1.Lines.Count-1 do
  115.    begin
  116.       RtCheckList1.Value[Memo1.Lines[i]] := False;
  117.       RtCheckList2.Value[Memo1.Lines[i]] := False;
  118.       RtCheckList3.Value[Memo1.Lines[i]] := False;
  119.    end;
  120. end;
  121.  
  122. procedure TForm1.RtCheckList1Click(Sender: TObject);
  123. begin
  124.     ListBox1.Items.Assign(RtCheckList1.Checked);
  125. end;
  126.  
  127. procedure TForm1.RtCheckList2Click(Sender: TObject);
  128. begin
  129.     ListBox1.Items.Assign(RtCheckList2.Checked);
  130. end;
  131.  
  132. procedure TForm1.RtCheckList3Click(Sender: TObject);
  133. begin
  134.     ListBox1.Items.Assign(RtCheckList3.Checked);
  135. end;
  136.  
  137. procedure TForm1.RadioGroup1Click(Sender: TObject);
  138. begin
  139.    RtCheckList1.CheckMode := TRtCheckMode(TRadioGroup(Sender).ItemIndex);
  140.    RtCheckList2.CheckMode := TRtCheckMode(TRadioGroup(Sender).ItemIndex);
  141.    RtCheckList3.CheckMode := TRtCheckMode(TRadioGroup(Sender).ItemIndex);
  142. end;
  143.  
  144. procedure TForm1.RtCheckList1Check(Sender: TObject; Index: Integer;
  145.   var Value: Boolean);
  146. var
  147.     Line: string;
  148. begin
  149.     Line := TRtCheckList(Sender).Items[Index]+' will be ';
  150.    if Value then
  151.        Line := Line+'checked.'
  152.    else
  153.        Line := Line+'unchecked.';
  154.     if MessageDlg(Line+#13#10+'Proceed ?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
  155.        Value := not Value;
  156. end;
  157.  
  158. procedure TForm1.RtCheckList3DrawItem(Sender: TObject; Index: Integer;
  159.   Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);
  160. begin
  161.       with TRtCheckList(Sender) do
  162.           if Value[Items[Index]] then
  163.            Canvas.Font.Color := clRed;
  164. end;
  165.  
  166. procedure TForm1.FormCreate(Sender: TObject);
  167. begin
  168.     Caption :=  Caption+FormatFloat(' ##.##',RtChkLst.Version);
  169. end;
  170.  
  171. procedure TForm1.CheckBox1Click(Sender: TObject);
  172. begin
  173.    RtCheckList1.WordWrap := (Sender as TCheckBox).Checked;
  174.    RtCheckList2.WordWrap := (Sender as TCheckBox).Checked;
  175.    RtCheckList3.WordWrap := (Sender as TCheckBox).Checked;
  176. end;
  177.  
  178. procedure TForm1.RadioGroup2Click(Sender: TObject);
  179. begin
  180.    RtCheckList1.TextAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  181.    RtCheckList2.TextAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  182.    RtCheckList3.TextAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  183. end;
  184.  
  185. procedure TForm1.RadioGroup4Click(Sender: TObject);
  186. begin
  187.    RtCheckList1.BmpVAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex+2);
  188.    RtCheckList2.BmpVAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex+2);
  189.    RtCheckList3.BmpVAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex+2);
  190. end;
  191.  
  192. procedure TForm1.RadioGroup3Click(Sender: TObject);
  193. begin
  194.    RtCheckList1.BmpHAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  195.    RtCheckList2.BmpHAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  196.    RtCheckList3.BmpHAlign := TRtAlignment((Sender as TRadioGroup).ItemIndex);
  197. end;
  198.  
  199. end.
  200.